home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rkey15.zip / RKGENKEY.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-09  |  1KB  |  41 lines
  1. Program RkGenKey;
  2.  
  3. {
  4.  This is a sample program using rKey.  It is a sample of a registration
  5.  key generation program that would be used by the programmer to create
  6.  registration keys to be distributed to registered users.  The program
  7.  itself would NOT be distributed, as it would allow users to generate
  8.  registration keys.  This sample will create a registration key for the
  9.  RkSample program, which can be branded using the RkBrand Program.
  10. }
  11.  
  12.  
  13. Uses
  14.   rKey;
  15.  
  16.  
  17. Const
  18.   RkGenKeyVer = '1.1';
  19.  
  20.  
  21. Var
  22.   n : String[36];
  23.  
  24.  
  25. Begin
  26.   OwnerCode := 'ArgleBarbWotsLeeb';
  27.   ProgramCode := 'RkSample Two';
  28.   KeyFileName := 'RKSAMPLE';
  29.   WriteLn('RkGenKey v' + RkGenKeyVer);
  30.   WriteLn('Registration Key Generation Program for RkSample v2.x');
  31.   WriteLn('(c) 1990 TrendSoft, Inc.');
  32.   WriteLn;
  33.   WriteLn('FOR INTERNAL USE ONLY!');
  34.   WriteLn('DO NOT DISTRIBUTE!');
  35.   WriteLn;
  36.   Write('Enter name of person to register : ');
  37.   ReadLn(n);
  38.   WriteLn;
  39.   WriteLn('Registration key is ' + MakeKey(n));
  40. End.
  41.